#! /usr/bin/env perl
# author: maxiao
# date: 2023-03-07 12:04
# description: 测试pop push shift unshift操作符

@array = 5..9;
foreach $item (@array) {
    $item = "\t$item";
    $item .= "\n";
}
print "最终的数组输出结果如下所示：\n", @array;

